home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / f / final_writer / finalwriter4usaenglish1.dms / in.adf / FWMacros.lha / GfxNudge_Down < prev    next >
Encoding:
Text File  |  1993-10-25  |  1.7 KB  |  66 lines
  1. /* ================================================= */
  2. /* Move the currently selected objects down by 45    */
  3. /* micropoints.                                      */
  4. /* FinalWriter macro written by Ric Fischer - 7/9/93 */
  5. /* $VER: GfxNudge_Down 3.0 (22.7.93)                 */
  6. /* ================================================= */
  7.  
  8. Options Results
  9.  
  10. I = 0
  11. X = 0
  12.  
  13. /* --------------------------------------- */
  14. /* All measurement will be in micropoints. */
  15. /* --------------------------------------- */
  16. SetMeasure MICROPOINTS
  17.  
  18. /* ------------------------------------------- */
  19. /* Get the id of the first selected object.    */
  20. /* If there are no objects selected then quit. */
  21. /* ------------------------------------------- */
  22. FirstObject SELECTED
  23.  
  24. IF ( Result = 0 ) THEN
  25.    EXIT
  26.  
  27. /* ------------------------------------------- */
  28. /* Collect the ids of all the selected objects */
  29. /* ------------------------------------------- */
  30. DO WHILE Result ~= 0; I = I + 1
  31.    Objects.I = Result
  32.    NextObject Objects.I SELECTED
  33.    END
  34.  
  35. /* ------------------------------------- */
  36. /* Loop through all of our object moving */
  37. /* each one to the left.                 */
  38. /* ------------------------------------- */
  39. DO WHILE X < I; X = X + 1
  40.    GetObjectType Objects.X
  41.    ObjType = Result
  42.    GetObjectCoords Objects.X
  43.    Coords = Result
  44.    PARSE VAR Coords Page x1 y1 x2 y2
  45.  
  46.    IF (ObjType = 2) | (ObjType = 3) THEN
  47.       DO
  48.          y1 = y1 + 45
  49.          y2 = y2 + 45
  50.       END
  51.    ELSE
  52.       y1 = y1 + 45
  53.    SetObjectCoords Objects.X Page x1 y1 x2 y2
  54. END
  55.  
  56. /* ------------------------------- */
  57. /* Reselect all of our objects and */
  58. /* redraw to show our changes.     */
  59. /* ------------------------------- */
  60. X = 0
  61. DO WHILE X < I; X = X + 1
  62.    SelectObject Objects.X MULTIPLE
  63.    End
  64.  
  65. Redraw
  66.